home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 19 / Mac Magazin and MacEasy Magazine CD - Issue 19.iso / Musik & Kunst / MusiCalc / MusiCalc / stack_-1.xml < prev    next >
Extensible Markup Language  |  1996-03-03  |  4KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>12</cardCount>
  7.     <cardID>3457</cardID>
  8.     <listID>12928</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>480</width>
  14.         <height>312</height>
  15.     </cardSize>
  16.     <script>--------------------------------------------------------------------------                             MusiCalc                               ----                              v 4.2.1                               ----               Copyright ¬© 1989,1996 by Michael Riesman             --------------------------------------------------------------------------on openStackif the version < 1.2 thenanswer "Sorry, MusiCalc requires HyperCard version 1.2 or later."set lockMessages to TRUEgo homeend ifset cursor to watchglobal frameSec,bitFrame,totalSec,negFlag,addAtLine,digiHourif digiHour is empty then put "01" into digiHourput the short name of this card into itif frameSec is empty thenif it = "first" or it = "timecalc" thenput cd field "¬©" of first card into cd fld "¬©" of cd id 2988show cd field "ff"show cd field "¬©"end ifend ifhide messagepush cardlock screengo first cardif frameSec is empty thenput the seconds into startTimeput line 3 of field 4 into frameSecput line 3 of field 5 into bitFramego first card of bg "sub 1"repeat with r = 1 to 99if line r of field 1 is empty thenput r into addAtLineexit repeatend ifend repeatput value of field 5 into itif it <0 then put -1 into negFlagelse put 1 into negFlagput abs(60*it) into totalSecadd value of field 6 to totalSecadd (value of field 7)/frameSec to totalSecadd (value of field 8)/(frameSec*bitFrame) to totalSecput negFlag * totalSec into totalSecgo first cardhide fld 11if (the seconds - startTime) < 1 thenrepeat until (the seconds - startTime) >1if the mouseClick then exit repeatend repeatend ifend ifsend mouseUp to bkgnd button id 41 of first cardpop cardput the short name of this card into itif it = "first" or it = "timecalc" thenhide cd field "¬©"hide cd field "ff"end ifunlock screenend openStackon enterInFieldtype returnend enterInFieldfunction timeDisplay xglobal frameSecglobal bitFrameif x<0 then put "-" into yelse put empty into yput abs(x)/60 + .00000003 into xreturn y & trunc(x) && trunc(x mod 1 * 60) &&¬¨trunc((x mod 1 * 60) mod 1 * frameSec) &&¬¨trunc(((x mod 1 * 60) mod 1 * frameSec) mod 1 * bitFrame)end timeDisplayon portTime theTime,theFormatglobal digiHourglobal frameSecglobal bitFrameput abs(theTime)/60 + .00000003 into xput digiHour & ":" & leadZero(trunc(x)) &":"&¬¨leadZero(trunc(x mod 1 * 60)) into theTimeput leadZero(trunc((x mod 1 * 60) mod 1 * frameSec)) into theFramesput (((x mod 1 * 60) mod 1 * frameSec) mod 1) into bitFractionif theFormat = "SDII" thenput "." & theFrames && "and " &¬¨trunc(bitFraction *4) * 25 &&"1/4-frs." after theTimeelseput ":" & theFrames after theTimeif theFormat = "PTLS" thenput char 2 to 5 of bitFraction after theTimeelseput " and" && trunc(bitFraction *bitFrame) &&¬¨"bits" after theTimeend ifend ifpasteTime theTimeend portTimeon setDigiHourglobal digiHourask "Enter Hour (use leading zero if less than 10):" with digiHourput it into digiHourend setdigiHouron pasteTime theTimerepeat with i=1 to 300set cursor to busyif line i of bg field "memo" is empty thenput theTime into line i of bg field "memo"select word 1 of line i of bg fld "memo"doMenu "Copy Text"exit repeatend ifend repeatif i = 300 then  answer "Memo box is full; can't convert format."end pasteTimeon pasteMemo myLine, whichCardset cursor to busygo card 1 of bg "sub " & whichCardrepeat with i=1 to 300set cursor to busyif line i of bg field "memo" is empty thenput last word of myLine into sourceput empty into last word of myLineput fixLine(